#Include 'Protheus.ch'

User Function TstFor()
	
	For nX := 41 To 130 Step 40
		
		ConOut('nX = ' + Str(nX))
		
	Next nX
	
	ConOut('nX = ' + Str(nX))
	
Return

